home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
QRZ! Ham Radio 8
/
QRZ Ham Radio Callsign Database - Volume 8.iso
/
pc
/
files
/
ant_nec
/
nec_in_c.tz
/
nec_in_c
/
NEC2
/
sue.c
< prev
next >
Wrap
C/C++ Source or Header
|
1992-02-13
|
1KB
|
68 lines
#include "f2c.h"
#include "fio.h"
extern uiolen reclen;
long recloc;
integer s_rsue(a) cilist *a;
{
int n;
if(!init) f_init();
reading=1;
if(n=c_sue(a)) return(n);
recpos=0;
if(curunit->uwrt && nowreading(curunit))
err(a->cierr, errno, "read start");
if(fread((char *)&reclen,sizeof(uiolen),1,cf)
!= 1)
{ if(feof(cf))
{ curunit->uend = 1;
err(a->ciend, EOF, "start");
}
clearerr(cf);
err(a->cierr, errno, "start");
}
return(0);
}
integer s_wsue(a) cilist *a;
{
int n;
if(!init) f_init();
if(n=c_sue(a)) return(n);
reading=0;
reclen=0;
if(curunit->uwrt != 1 && nowwriting(curunit))
err(a->cierr, errno, "write start");
recloc=ftell(cf);
(void) fseek(cf,(long)sizeof(uiolen),SEEK_CUR);
return(0);
}
c_sue(a) cilist *a;
{
if(a->ciunit >= MXUNIT || a->ciunit < 0)
err(a->cierr,101,"startio");
external=sequential=1;
formatted=0;
curunit = &units[a->ciunit];
elist=a;
if(curunit->ufd==NULL && fk_open(SEQ,UNF,a->ciunit))
err(a->cierr,114,"sue");
cf=curunit->ufd;
if(curunit->ufmt) err(a->cierr,103,"sue")
if(!curunit->useek) err(a->cierr,103,"sue")
return(0);
}
integer e_wsue()
{ long loc;
(void) fwrite((char *)&reclen,sizeof(uiolen),1,cf);
loc=ftell(cf);
(void) fseek(cf,recloc,SEEK_SET);
(void) fwrite((char *)&reclen,sizeof(uiolen),1,cf);
(void) fseek(cf,loc,SEEK_SET);
return(0);
}
integer e_rsue()
{
(void) fseek(cf,(long)(reclen-recpos+sizeof(uiolen)),SEEK_CUR);
return(0);
}